open(FILE,$ARGV[0])||die"can not open the file: $!";
@filelist=<FILE>;

$i=0;
foreach $eachline (@filelist) {
        print "$i $eachline";
        $i++;
}

close FILE;